home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib08.dsk / ZAP LOADER.bas < prev   
BASIC Source File  |  2023-02-26  |  3KB  |  53 lines
  1. 1  REM  **********************
  2. 2  REM  *     ZAP LOADER     *
  3. 3  REM  *   BY JIM GORDON    *
  4. 4  REM  * COPYRIGHT (C) 1982 *
  5. 5  REM  * BY MICRO-SPARC INC *
  6. 6  REM  * LINCOLN, MA. 01773 *
  7. 7  REM  **********************
  8. 10 D$ =  CHR$(4)
  9. 12  TEXT : PRINT 
  10. 14  HOME 
  11. 15  REM 
  12. 16  REM  IS INTEGER LOADED?
  13. 17  REM 
  14. 20  POKE 768,0: POKE 769,173: POKE 770,128: POKE 771,192: POKE 772,173:
  15. 24  POKE 773,0: POKE 774,208: POKE 775,205: POKE 776,38: POKE 777,3:
  16. 26  POKE 778,208: POKE 779,22: POKE 780,173: POKE 781,1: POKE 782,208:
  17. 30  POKE 783,205: POKE 784,39: POKE 785,3: POKE 786,208: POKE 787,14:
  18. 34  POKE 788,173: POKE 789,2: POKE 790,208: POKE 791,205: POKE 792,40:
  19. 36  POKE 793,3: POKE 794,208: POKE 795,6: POKE 796,173: POKE 797,41:
  20. 40  POKE 798,3: POKE 799,141: POKE 800,0: POKE 801,3: POKE 802,173:
  21. 44  POKE 803,129: POKE 804,192: POKE 805,96: POKE 806,169: POKE 807,32:
  22. 46  POKE 808,141: POKE 809,13:
  23. 50  CALL 769
  24. 52  REM  IF INTEGER LOADED GOTO 310
  25. 55  IF  PEEK(768) = 13  THEN  GOTO 310
  26. 80  REM  --POKE LANGUAGE CARD FINDER
  27. 90  POKE 768,0: POKE 769,173: POKE 770,0: POKE 771,224: POKE 772,72: POKE 773,173: POKE 774,129: POKE 775,192: POKE 776,104:
  28. 95  POKE 777,72: POKE 778,205: POKE 779,0: POKE 780,224: POKE 781,208: POKE 782,35: POKE 783,173: POKE 784,131: POKE 785,192:
  29. 100  POKE 786,173: POKE 787,131: POKE 788,192: POKE 789,169: POKE 790,165: POKE 791,141: POKE 792,0: POKE 793,208: POKE 794,205:
  30. 105  POKE 795,0: POKE 796,208: POKE 797,208: POKE 798,19: POKE 799,74: POKE 800,141: POKE 801,0: POKE 802,208: POKE 803,205:
  31. 110  POKE 804,0: POKE 805,208: POKE 806,208: POKE 807,10: POKE 808,173: POKE 809,129: POKE 810,192: POKE 811,173: POKE 812,129:
  32. 115  POKE 813,192: POKE 814,169: POKE 815,1: POKE 816,208: POKE 817,2: POKE 818,169: POKE 819,0: POKE 820,141: POKE 821,0:
  33. 120  POKE 822,3: POKE 823,104: POKE 824,205: POKE 825,0: POKE 826,224: POKE 827,240: POKE 828,3: POKE 829,173: POKE 830,128:
  34. 125  POKE 831,192: POKE 832,96:
  35. 155  CALL 769
  36. 160  IF  PEEK(768) < >1  THEN 250
  37. 170  REM 
  38. 180  REM  --IF THERE, LOAD INTG AND PA#1
  39. 190  REM 
  40. 200  VTAB 10: PRINT "(LOADING INTEGER INTO LANGUAGE CARD)"
  41. 210  PRINT D$;"BLOAD INTBASIC,A$D000"
  42. 220  REM  --WRITE PROTECT THE CARD
  43. 230 A =  PEEK( -16254): REM  $C082
  44. 240  GOTO 310
  45. 250  REM 
  46. 260  REM  --NO CARD OR CAN'T RELOAD
  47. 270  REM 
  48. 280  IF  PEEK(768) = 0  THEN  GOTO 310
  49. 290  PRINT : PRINT "...LANGUAGE CARD CANNOT BE RELOADED": PRINT "   UNTIL THE SYSTEM IS REBOOTED..."
  50. 300  END 
  51. 310  HOME 
  52. 320  VTAB 2
  53. 330  PRINT "BOOT COMPLETE - ZAP LOADER FROM NIBBLE!!"